home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 441 / aessrc12 / aesscrp.s < prev    next >
Text File  |  1990-11-23  |  898b  |  33 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .include  "aesfast.sh"
  9.           
  10. ;*************************************************************************
  11. ;*
  12. ;* Scrap manager routines.
  13. ;*
  14. ;*************************************************************************
  15.  
  16. ;-------------------------------------------------------------------------
  17. ; scrp_read
  18. ; scrp_write
  19. ;-------------------------------------------------------------------------
  20.  
  21. _scrp_read::
  22.           AControl  80,0,1,1
  23.           bra.s     scrp_do
  24. _scrp_write::
  25.           AControl  81,0,1,1
  26. scrp_do:
  27.           .cargs    #4,.ptr.l
  28.           lea       .ptr(sp),a0       ; -> addrin
  29.           ACall     RET2USER
  30.           
  31. ;         end of code
  32.  
  33.